home *** CD-ROM | disk | FTP | other *** search
/ Anime Robot / Anime Robot.iso / pc / DATA / START.dxr / 00380_vai a scheda da field.ls < prev    next >
Encoding:
Text File  |  1998-11-13  |  1.1 KB  |  54 lines
  1. on mouseUp me
  2.   global gInit
  3.   set s to the spriteNum of me
  4.   set gInit to 1
  5.   set the puppet of sprite s to 0
  6.   puppetTransition(member "DefTranSalto")
  7.   set n to the name of member the member of sprite s
  8.   set nl to n & "link"
  9.   set l to the mouseLine
  10.   set ln to value(line l of field nl)
  11.   if ln > 0 then
  12.     go(label("SCH" & string(ln)))
  13.   else
  14.     beep()
  15.   end if
  16. end
  17.  
  18. on mouseUpOutSide me
  19.   global gInit
  20.   set s to the spriteNum of me
  21.   set gInit to 1
  22. end
  23.  
  24. on mouseWithin me
  25.   global vaiok, linea
  26.   set s to the spriteNum of me
  27.   set theCast to the name of member the member of sprite s
  28.   set ll to the number of lines in field theCast
  29.   set l to the mouseLine
  30.   if l > 0 then
  31.     if l <> linea then
  32.       hilite line l of field theCast
  33.       set linea to l
  34.     else
  35.       nothing()
  36.     end if
  37.   else
  38.     if linea > 0 then
  39.       hilite line linea of field theCast
  40.       set linea to 0
  41.     end if
  42.   end if
  43. end
  44.  
  45. on mouseLeave me
  46.   global linea
  47.   set s to the spriteNum of me
  48.   set theCast to the name of member the member of sprite s
  49.   if linea > 0 then
  50.     hilite line linea of field theCast
  51.     set linea to 0
  52.   end if
  53. end
  54.